﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>

<card title="合成轩辕圣盔">
<p>
<%
ids=myid
%>
<%

set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select j2,bs,y6,hw1,hw2,hw3,t7,yz from wupin where cstr(ids)='"&myid&"'"
rs.open strsQL,liao,1,1
if rs("j2")<5 then
msg="您的铜矿数量不够！需要五块"
else
if rs("bs")<1 then
msg="您没有1个宝石"
else
if rs("y6")<1 then
msg="您没有1个情人花"
else
if rs("hw1")<3 then
msg="您没有3个巨型号角"
else
if rs("hw2")<3 then
msg="您没有3个星光灭绝"
else
if rs("hw3")<3 then
msg="您没有3个魔皇粉星拳"
else
if rs("yz")<100000 then
msg="您的银两不够扣除手续费"
else
if rs("t7")<5 then
msg="您的龙王头盔数量不够，需要五件"
else
sql="update wupin set t8=t8+1 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set j2=j2-5 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set bs=bs-1 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set y6=y6-1 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set hw1=hw1-3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set hw2=hw2-3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set hw3=hw3-3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set yz=yz-100000 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set t7=t7-5 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您成功合成物品<b><u>轩辕圣盔</u></b>"
END IF
end if
end if
end if
END IF
end if
end if
end if
Response.Write ""&msg&"<br/>========<br/>"
 rs.Close
	Set rs=Nothing
     
      
%>
<a href="mywp.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[我的包袱]</a><br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[江湖首页]</a><br/>


<%qingtian.shuchu%>

